home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
PROGRAM
/
BULL.ARJ
/
BULLDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-05-10
|
1KB
|
37 lines
Program BullDemo;
Uses Bulletin;
Procedure Bull(BName : String);
Var
F : TEXT;
OldFG, OldBG : word;
Begin
Assign(F,BNAME);
Rewrite(F);
Writeln(F,A_ST(White,Black));
Writeln(F,'This is a ', A_ST(RED,Nul),'VERY',A_ST(White,Nul),' brief demo of the');
Writeln(F,A_ST(Yellow,Blue),'Unit BULLETIN.',A_St(White,Black));
Writeln(F,'It can do many things. Including:');
Writeln(F,A_St(BLink,Nul),' Blinking text without reference to current color');
Writeln(F,A_St(Nul,Blue),'BackGround Changes');
Writeln(F,A_ST(Yellow,Blue),'ForeGround Changes');
OldFg := Ans.FG;
OldBg := Ans.BG;
Writeln(F,A_ST(Off,Nul),A_St(OldFG+Bold,OldBG),'Shutting off that anoying blinking');
Writeln(F,A_St(Off,Nul));
Close(F);
End;
Begin
Writeln(' This program demonstrates some of the uses for the UNIT BULLETIN');
Writeln(' It has just created two files, BULL.ANS and BULL.ASC');
Writeln(' Use the DOS TYPE command to view them.');
Writeln;
Writeln(' Thanks,');
Writeln(' Robert L. Edwards, SysOp The Force! Demon-Sion BBS');
Writeln(' 1(207)963-2683');
Ans.On := True;
Bull('BULL.ANS');
Ans.On := False;
Bull('BULL.ASC');
end.